source('plotfdp.R')

M <- as.numeric(readline('M? '))
ys <- fexp(xs)*M

lines(
	xs, ys,
	lwd=2, col=rgb(1,0,0,.5))

ltitle <- if(M == 1) 'exp' else paste('exp *', M)

legend('topright',
	c(ltitle, 'a nossa fdp'), lwd=c(2,2),
	col=c(rgb(1,0,0,.5), rgb(0,0,1,.5)),
	bg='white', cex=.8)

